home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
videoeasel.lha
/
Video Easel
/
CAMRexx
/
Diffusion.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-31
|
370b
|
19 lines
/* Diffusion by an idea of Toffoli, in CAMRexx by THOR */
MakeAlgorithm:
PLANEALGORITHM margolus hvphases
return
MakePlane:
if plane=0 then; do
rand=(center_ ^ cw_ ^ ccw_ ^ opp_)
if rand then SETPLANE cw
else SETPLANE ccw
end
if plane=1 then; do
new=(center_ & cw_) ^ opp_ ^ ccw_
SETPLANE new
end
return